home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 20 / 9 / DISK2092.ZIP / RBBS-LIT.ZIP / LIT / FOSSIL23.LIT < prev    next >
Text File  |  1990-01-13  |  3KB  |  54 lines
  1. *[FOSSIL23.LIT]***************************************************************
  2. * Description: Removes FOSSIL support                                        *
  3. * RBBS-PC Level: CPC17.3                                                √ AM *
  4. * Module Affected: RBBSSUB2.BAS                                              *
  5. * Selection Option: FOSSIL = OFF                                             *
  6. * Additional files: None                                                     *
  7. ******************************************************************************
  8. 1654 SUB SetBaud STATIC
  9.      IF NOT ZKeepInitBaud THEN _
  10.         ZTalkToModemAt$ =  MID$(ZBaudRates$,(-5 * ZBPS),5) _         ' KG091702
  11.      ELSE ZTalkToModemAt$ = ZModemInitBaud$
  12.      CALL Trim (ZTalkToModemAt$)
  13.      IF LEN(ZTalkToModemAt$) < 5 THEN _
  14.         ZTalkToModemAt$ = SPACE$(4 - LEN(ZTalkToModemAt$)) + _
  15.                             ZTalkToModemAt$
  16.      IF ZEightBit THEN_
  17.         Parity = 2 : _                                    ' No PARITY
  18.         DataBits = 3 : _                                  ' 8 DATA BITS
  19.         StopBits = 0 _                                    ' 1 STOP BIT
  20.      ELSE Parity = 3 : _                                  ' EVEN PARITY
  21.           DataBits = 2 : _                                ' 7 DATA BITS
  22.           StopBits = 0                                    ' 1 STOP BIT
  23.      ComSpeed! = VAL(ZTalkToModemAt$)                                ' KG090102
  24.      IF ComSpeed! > 19200! THEN _                                    ' KG090102
  25.         WasI = 19200! _                                              ' RK010401
  26.      ELSE WasI = ComSpeed!                                           ' KG090102
  27.      IF ComSpeed! = 2400! THEN _                                     ' KG090102
  28.         ZBaudRateDivisor = &H30 + (1 * (ZComputerType = 2)) _        ' KG090102
  29.      ELSE IF ComSpeed! = 1200! THEN _                                ' KG090102
  30.         ZBaudRateDivisor = &H60 + (3 * (ZComputerType = 2)) _        ' KG090102
  31.      ELSE IF ComSpeed! = 9600! THEN _                                ' KG090102
  32.         ZBaudRateDivisor = &HC _                                     ' KG090102
  33.      ELSE IF ComSpeed! = 300! THEN _                                 ' KG090102
  34.         ZBaudRateDivisor = &H180 + (11 * (ZComputerType = 2)) _      ' KG090102
  35.      ELSE IF ComSpeed! = 450! THEN _                                 ' KG090102
  36.         ZBaudRateDivisor = &H100 + (8 * (ZComputerType = 2)) _       ' KG090102
  37.      ELSE IF ComSpeed! = 4800! THEN _                                ' KG090102
  38.         ZBaudRateDivisor = &H18 _                                    ' KG090102
  39.      ELSE IF ComSpeed! = 19200! THEN _                               ' KG090102
  40.         ZBaudRateDivisor = &H6 _                                     ' KG090102
  41.      ELSE IF ComSpeed! = 38400! THEN _                               ' KG090102
  42.         ZBaudRateDivisor = &H3                                       ' KG090102
  43.      MostSignifByte = FIX (ZBaudRateDivisor / 256)
  44.      LeastSignifByte = ZBaudRateDivisor - (MostSignifByte * 256)
  45.      LineCntlStatus = INP(ZLineCntlReg)
  46.      MSBSave = INP(ZMSB)
  47.      OUT ZMSB,0
  48.      OUT ZLineCntlReg,LineCntlStatus OR 128
  49.      OUT ZLSB,LeastSignifByte
  50.      OUT ZMSB,MostSignifByte
  51.      OUT ZLineCntlReg,LineCntlStatus
  52.      OUT ZMSB,MSBSave
  53.      END SUB
  54.